SUBROUTINE OPTWARNSTOP(option)

use MPI_VARIABLES, only : &
& rank_MPI

! Writes at the screen the non-operational option
! and stops the program

! Input/output variables

character(len=*), intent(in) :: option

if (rank_MPI == 0) then
  write (*,*) 'The option ', option, ' is currently not operational: STOP'
endif
call STOP_MODEL_MPI
!STOP

END SUBROUTINE OPTWARNSTOP
